home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / gus / vts139b.zip / VTSTRCON.PAS < prev    next >
Pascal/Delphi Source File  |  1993-12-22  |  25KB  |  363 lines
  1. UNIT VTStrConst;
  2.  
  3. INTERFACE
  4.  
  5. USES Objects;
  6.  
  7.  
  8.  
  9.  
  10. CONST
  11.   StrPosition       = $1000;
  12.   StrPattern        = $1001;
  13.   StrNote           = $1002;
  14.   StrTempo          = $1003;
  15.  
  16.   StrModule         = $1100;
  17.   StrFilename       = $1101;
  18.   StrMemoryLeft     = $1102;
  19.   StrSampleRate     = $1103;
  20.   StrVolume         = $1104;
  21.  
  22.   StrMenu1          = $1201;
  23.   StrMenu2          = $1202;
  24.   StrMenu3          = $1203;
  25.   StrMenu4          = $1204;
  26.   StrMenu5          = $1205;
  27.   StrMenu6          = $1206;
  28.   StrMenu7          = $1207;
  29.   StrMenu8          = $1208;
  30.   StrMenu9          = $1209;
  31.   StrMenu0          = $120A;
  32.  
  33.   StrOscilloscView  = $1300;
  34.   StrGUSOscillosc   = $1310;
  35.  
  36.   StrChannel        = $1400;
  37.  
  38.   StrCreditsTitle   = $14FF;
  39.  
  40.   StrDedicat        = $1500;
  41.   StrCredits        = $1520;
  42.  
  43.   StrUsageTop       = $2000;
  44.   StrUsage01        = $2001;
  45.   StrUsageBottom    = $200D;
  46.   StrUsageEmpty     = $200E;
  47.   StrUsagePressAKey = $200F;
  48.  
  49.   StrUsage1Beg      = $2020;
  50.   StrUsage2Beg      = $2040;
  51.   StrUsage3Beg      = $2060;
  52.   StrUsage4Beg      = $2080;
  53.  
  54.   StrInitializing   = $2200;
  55.  
  56.  
  57.  
  58.  
  59. PROCEDURE VTAddSpanishMsg(VAR List: TStrListMaker);
  60. PROCEDURE VTAddEnglishMsg(VAR List: TStrListMaker);
  61.  
  62.  
  63.  
  64.  
  65. IMPLEMENTATION
  66.  
  67.  
  68.  
  69.  
  70. PROCEDURE VTAddSpanishMsg(VAR List: TStrListMaker);
  71.   BEGIN
  72.     List.Put(StrPosition               , 'Posición:  ');
  73.     List.Put(StrPattern                , 'Patrón:    ');
  74.     List.Put(StrNote                   , 'Nota:      ');
  75.     List.Put(StrTempo                  , 'Tempo:     ');
  76.  
  77.     List.Put(StrModule                 , 'Módulo:    ');
  78.     List.Put(StrFilename               , 'Fichero:   ');
  79.     List.Put(StrMemoryLeft             , 'Mem. libre:');
  80.     List.Put(StrSampleRate             , 'Frecuencia:');
  81.     List.Put(StrVolume                 , 'Volumen:');
  82.  
  83.     List.Put(StrMenu1                  , 'PAr/Ab Otro patrón     ');
  84.     List.Put(StrMenu2                  , 'In/Fin Idem (principio)');
  85.     List.Put(StrMenu3                  , '1-8    Apagar canal    ');
  86.     List.Put(StrMenu4                  , 'F5-F9  Varias ventanas ');
  87.     List.Put(StrMenu5                  , 'Iz/Dch.Desplaza canales');
  88.     List.Put(StrMenu6                  , 'R/T    Frec. de salida ');
  89.     List.Put(StrMenu7                  , '+/-    Volumen         ');
  90.     List.Put(StrMenu8                  , 'D      Shell al DOS    ');
  91.     List.Put(StrMenu9                  , 'N/S    Sig. canción    ');
  92.     List.Put(StrMenu0                  , 'ESC    Parar           ');
  93.  
  94.     List.Put(StrOscilloscView          , 'Osciloscopio');
  95.     List.Put(StrGUSOscillosc           , '               El osciloscopio no está disponible cuando se usa la GUS');
  96.  
  97.     List.Put(StrChannel                , 'Canal    ');
  98.  
  99.     List.Put(StrCreditsTitle           , '                               Créditos');
  100.  
  101.     List.Put(StrCredits                , '     - Juan Carlos Arévalo  · │ Originador de todo el tinglado.');
  102.     List.Put(StrCredits+ 1             , '                              │ Cuerpo del programa. Estructura');
  103.     List.Put(StrCredits+ 2             , '                              │ general. Primeras versiones.');
  104.     List.Put(StrCredits+ 3             , '');
  105.     List.Put(StrCredits+ 4             , '     - Luis Crespo  ········· │ Antecesor del programa (JAMP).');
  106.     List.Put(StrCredits+ 5             , '                              │ Rutinas de DMA. Información sobre');
  107.     List.Put(StrCredits+ 6             , '                              │ Sound Blaster.');
  108.     List.Put(StrCredits+ 7             , '');
  109.     List.Put(StrCredits+ 8             , '     - Félix Sanz  ·········· │ Creación de los DOCs de usuario.');
  110.     List.Put(StrCredits+ 9             , '');
  111.     List.Put(StrCredits+10             , '     - Alejandro López  ····· │ Idea original de la mezcla de');
  112.     List.Put(StrCredits+11             , '                              │ canales en estéreo.');
  113.     List.Put(StrCredits+12             , '');
  114.     List.Put(StrCredits+13             , '     - Héctor Martínez  ····· │ Rutinas FFT. (no introducidas');
  115.     List.Put(StrCredits+14             , '                              │ todavía).');
  116.     List.Put(StrCredits+11             , '                              │ Idea original del sistema de');
  117.     List.Put(StrCredits+16             , '                              │ manejo de los 4 canales.');
  118.     List.Put(StrCredits+17             , '');
  119.     List.Put(StrCredits+18             , '     - David López  ········· │ Información sobre SB-Pro estéreo.');
  120.     List.Put(StrCredits+19             , '');
  121.     List.Put(StrCredits+20             , '     - Angel Trigo  ········· │ Información sobre SB-Pro estéreo.');
  122.     List.Put(StrCredits+21             , '');
  123.     List.Put(StrCredits+22             , '     - Carlos Fernández  ···· │ Realizada una modificación en');
  124.     List.Put(StrCredits+23             , '                              │ el swapping, para que funcione');
  125.     List.Put(StrCredits+24             , '                              │ con CD-ROMS.');
  126.     List.Put(StrCredits+25             , '');
  127.     List.Put(StrCredits+26             , '     - Néstor Matas  ········ │ Traducción del manual al Inglés.');
  128.     List.Put(StrCredits+27             , '');
  129.     List.Put(StrCredits+28             , 'NOTA: Esta versión de VT no soporta ninguna tarjeta aparte de la GUS.');
  130.     List.Put(StrCredits+29             , '      Otras tarjetas serán soportadas de nuevo en futuras versiones de VT.');
  131.     List.Put(StrCredits+30             , '');
  132.     List.Put(StrCredits+31             , #0);
  133.  
  134.     List.Put(StrDedicat                , '         Esta versión está dedicada a Gore/FC y a John Smith.');
  135.     List.Put(StrDedicat+1              , '           Ambos han contribuído de una forma muy especial.');
  136.     List.Put(StrDedicat+2              , #0);
  137.  
  138.     List.Put(StrUsageTop               ,' ┌────────────────────────────────────────────────────────────────────────────┐');
  139.     List.Put(StrUsage01                ,' │ VT  <fichero>[.MOD|.OKT|.S3M|.STM|.669| etc] [<opciones>] [@<fichero.VTO>] │');
  140.     List.Put(StrUsageBottom            ,' └────────────────────────────────────────────────────────────────────────────┘');
  141.     List.Put(StrUsageEmpty             ,' │                                                                            │');
  142.     List.Put(StrUsagePressAKey         ,'                      ---===≡≡≡ Pulsa  una tecla ≡≡≡===---');
  143.  
  144.     List.Put(StrUsage1Beg              ,' │ <fichero> acepta comodines (wildards). Se pueden especificar varios.       │');
  145.     List.Put(StrUsage1Beg+1            ,' │           También se puede especificar la canción que está dentro de una   │');
  146.     List.Put(StrUsage1Beg+2            ,' │           demo (ésta sin comodines) mediante la barra "/" (ver ejemplos).  │');
  147.     List.Put(StrUsage1Beg+3            ,'');
  148.     List.Put(StrUsage1Beg+4            ,' │ <fichero.VTO> es un fichero ASCII con líneas de parámetros. Se pueden      │');
  149.     List.Put(StrUsage1Beg+5            ,' │               especificar varios, cada uno con su arroba (@). Los ficheros │');
  150.     List.Put(StrUsage1Beg+6            ,' │               pueden llevar comentarios, precedidos por un símbolo de ";". │');
  151.     List.Put(StrUsage1Beg+7            ,' │               También se pueden anidar todo lo que se quiera.              │');
  152.     List.Put(StrUsage1Beg+8            ,#0);
  153.  
  154.     List.Put(StrUsage2Beg              ,' │ <opciones> es una lista de opciones, precedidas cada una por una barra "/" │');
  155.     List.Put(StrUsage2Beg+ 1           ,' │            o por un guión "-". Las opciones deben estar separadas por, al  │');
  156.     List.Put(StrUsage2Beg+ 2           ,' │            menos, un espacio. Algunas pociones pueden llevar un parámetro, │');
  157.     List.Put(StrUsage2Beg+ 3           ,' │            que se puede especificar a continuación, separado por un        │');
  158.     List.Put(StrUsage2Beg+ 4           ,' │            espacio o por dos puntos ":". Posibles opciones son:            │');
  159.     List.Put(StrUsage2Beg+ 5           ,'');
  160.     List.Put(StrUsage2Beg+ 6           ,' │   / ó -        interpreta lo que se haya especificado, y después continúa. │');
  161.     List.Put(StrUsage2Beg+ 7           ,' │   /v:<vol.>    volumen del sonido.                                         │');
  162.     List.Put(StrUsage2Beg+ 8           ,' │   /sh:<cmd.>   programa y parámetros que se ejecutan al hacer un shell.    │');
  163.     List.Put(StrUsage2Beg+ 9           ,' │   /ss:<pos.>   posición de comienzo de la canción.                         │');
  164.     List.Put(StrUsage2Beg+10           ,' │   /sr:<pos.>   posición de comienzo del bucle de la canción.               │');
  165.     List.Put(StrUsage2Beg+11           ,' │   /sl:<pos.>   posición de finalización de la canción.                     │');
  166.     List.Put(StrUsage2Beg+12           ,' │   /lq          "Low Quality", ocupa menos memoria, pero suena peor.        │');
  167.     List.Put(StrUsage2Beg+13           ,' │   /hq          "Hi  Quality", desactiva el anterior.                       │');
  168.     List.Put(StrUsage2Beg+14           ,' │   /flp         equivale a poner "ForceLoopMod = Sí" en el VT.CFG.          │');
  169.     List.Put(StrUsage2Beg+15           ,' │   /nofl        equivale a poner "ForceLoopMod = No" en el VT.CFG.          │');
  170.     List.Put(StrUsage2Beg+16           ,' │   /loop        equivale a poner "LoopMod = Sí" en el VT.CFG.               │');
  171.     List.Put(StrUsage2Beg+17           ,' │   /nolp        equivale a poner "LoopMod = No" en el VT.CFG.               │');
  172.     List.Put(StrUsage2Beg+18           ,' │   /off:<pos.>  posición de comienzo de la canción dentro del fichero.      │');
  173.     List.Put(StrUsage2Beg+19           ,' │   /port:<n>    puerto de E/S de la tarjeta de sonido.                      │');
  174.     List.Put(StrUsage2Beg+20           ,' │   /irq:<n>     IRQ de la tarjeta de sonido.                                │');
  175.     List.Put(StrUsage2Beg+21           ,' │   /frst:<file> no suena ninguna canción hasta que no se encuentra esta.    │');
  176.  
  177.     List.Put(StrUsage2Beg+22           ,#0);
  178.  
  179.     List.Put(StrUsage3Beg              ,' │ <disp.> puede ser:                                                         │');
  180.     List.Put(StrUsage3Beg+ 1           ,' │                                                                            │');
  181.     List.Put(StrUsage3Beg+ 2           ,' │     Lo siento. Esta versión de VT sólo soporta GUS.                        │');
  182.     List.Put(StrUsage3Beg+ 3           ,' │                                                                            │');
  183.     List.Put(StrUsage3Beg+ 4           ,#0);
  184.  
  185.     List.Put(StrUsage4Beg              ,' │ Ejemplos: El intérprete de línes de comando es demasiado flexible para     │');
  186.     List.Put(StrUsage4Beg+ 1           ,' │           explicarlo aquí entero, así que para hacerse una idea de cómo    │');
  187.     List.Put(StrUsage4Beg+ 2           ,' │           funciona, examine los ejemplos y los ficheros .VTO incluídos.    │');
  188.     List.Put(StrUsage4Beg+ 3           ,'');
  189.     List.Put(StrUsage4Beg+ 4           ,' │   Este hace sonar la melodía "Axel F." por la GUS que está en el puerto    │');
  190.     List.Put(StrUsage4Beg+ 5           ,' │   240, IRQ 11 con un volumen de 64:                                        │');
  191.     List.Put(StrUsage4Beg+ 6           ,'');
  192.     List.Put(StrUsage4Beg+ 7           ,' │       VT /v:64 D:\MODS\AXEL_F.MOD /port $240 /IRQ:11                       │');
  193.     List.Put(StrUsage4Beg+ 8           ,'');
  194.     List.Put(StrUsage4Beg+ 9           ,' │   Este hace sonar la música de la demo Unreal, de Future Crew, según el    │');
  195.     List.Put(StrUsage4Beg+10           ,' │   fichero .VTO. Al salir al shell, edita el fichero VT.PAS en el editor:   │');
  196.     List.Put(StrUsage4Beg+11           ,'');
  197.     List.Put(StrUsage4Beg+12           ,' │       VT @UNREAL.VTO /sh:C:\BIN\Q.EXE VT.PAS                               │');
  198.     List.Put(StrUsage4Beg+13           ,'');
  199.     List.Put(StrUsage4Beg+14           ,' │   Este toca las canciones 1 y 2 (cualquiera que sea su formato):           │');
  200.     List.Put(StrUsage4Beg+15           ,'');
  201.     List.Put(StrUsage4Beg+16           ,' │       VT 1 2                                                               │');
  202.     List.Put(StrUsage4Beg+17           ,'');
  203.     List.Put(StrUsage4Beg+18           ,' │   Este toca la canción 1 a un volumen de 64 y la canción 2 a 128:          │');
  204.     List.Put(StrUsage4Beg+19           ,'');
  205.     List.Put(StrUsage4Beg+20           ,' │       VT 1 /v:64 / /v 128 2                                                │');
  206.     List.Put(StrUsage4Beg+21           ,'');
  207.     List.Put(StrUsage4Beg+22           ,#0);
  208.  
  209.     List.Put(StrInitializing           ,'    Inicializando... ');
  210.  
  211.   END;
  212.  
  213.  
  214. PROCEDURE VTAddEnglishMsg(VAR List: TStrListMaker);
  215.   BEGIN
  216.     List.Put(StrPosition               , 'Position:  ');
  217.     List.Put(StrPattern                , 'Pattern:   ');
  218.     List.Put(StrNote                   , 'Note:      ');
  219.     List.Put(StrTempo                  , 'Tempo:     ');
  220.  
  221.     List.Put(StrModule                 , 'Module:    ');
  222.     List.Put(StrFilename               , 'Filename:  ');
  223.     List.Put(StrMemoryLeft             , 'Free mem.: ');
  224.     List.Put(StrSampleRate             , 'Frequency: ');
  225.     List.Put(StrVolume                 , 'Volume: ');
  226.  
  227.     List.Put(StrMenu1                  , 'PUp/Dn Next pattern    ');
  228.     List.Put(StrMenu2                  , 'Bg/End Idem (from beg) ');
  229.     List.Put(StrMenu3                  , '1-8    Turn off channel');
  230.     List.Put(StrMenu4                  , 'F5-F9  Change windows  ');
  231.     List.Put(StrMenu5                  , 'Lt/Rt  Shift channels  ');
  232.     List.Put(StrMenu6                  , 'R/T    Output freq.    ');
  233.     List.Put(StrMenu7                  , '+/-    Volume          ');
  234.     List.Put(StrMenu8                  , 'D      DOS Shell       ');
  235.     List.Put(StrMenu9                  , 'N/S    Next song       ');
  236.     List.Put(StrMenu0                  , 'ESC    Quit            ');
  237.  
  238.     List.Put(StrOscilloscView          , 'Oscilloscope');
  239.     List.Put(StrGUSOscillosc           , '                    The oscilloscope is not available with GUS sound');
  240.  
  241.     List.Put(StrChannel                , 'Channel  ');
  242.  
  243.     List.Put(StrCreditsTitle           , '                          Credits');
  244.  
  245.     List.Put(StrCredits                , '     - Juan Carlos Arévalo  · │ Originator of all this mess.');
  246.     List.Put(StrCredits+ 1             , '                              │ Program body, General structure.');
  247.     List.Put(StrCredits+ 2             , '                              │ First versions.');
  248.     List.Put(StrCredits+ 3             , '');
  249.     List.Put(StrCredits+ 4             , '     - Luis Crespo  ········· │ Programs antecesor (JAMP).');
  250.     List.Put(StrCredits+ 5             , '                              │ DMA routines. Sound Blaster');
  251.     List.Put(StrCredits+ 6             , '                              │ Info.');
  252.     List.Put(StrCredits+ 7             , '');
  253.     List.Put(StrCredits+ 8             , '     - Félix Sanz  ·········· │ Creation of the user DOCs.');
  254.     List.Put(StrCredits+ 9             , '');
  255.     List.Put(StrCredits+10             , '     - Alejandro López  ····· │ Original system of stereo');
  256.     List.Put(StrCredits+11             , '                              │ channels mixing.');
  257.     List.Put(StrCredits+12             , '');
  258.     List.Put(StrCredits+13             , '     - Héctor Martínez  ····· │ FFT routines. (not yet');
  259.     List.Put(StrCredits+14             , '                              │ introduced).');
  260.     List.Put(StrCredits+11             , '                              │ Original idea of the 4 channel');
  261.     List.Put(StrCredits+16             , '                              │ handling system.');
  262.     List.Put(StrCredits+17             , '');
  263.     List.Put(StrCredits+18             , '     - David López  ········· │ SB-Pro stereo info.');
  264.     List.Put(StrCredits+19             , '');
  265.     List.Put(StrCredits+20             , '     - Angel Trigo  ········· │ SB-Pro stereo info.');
  266.     List.Put(StrCredits+21             , '');
  267.     List.Put(StrCredits+22             , '     - Carlos Fernández  ···· │ Made a modification in the');
  268.     List.Put(StrCredits+23             , '                              │ swapping system, to make it work');
  269.     List.Put(StrCredits+24             , '                              │ on CD-ROMS.');
  270.     List.Put(StrCredits+25             , '');
  271.     List.Put(StrCredits+26             , '     - Néstor Matas  ········ │ Translation of this manual into');
  272.     List.Put(StrCredits+27             , '                              │ English.');
  273.     List.Put(StrCredits+28             , '');
  274.     List.Put(StrCredits+29             , '  NOTE: This version of VT currently doesn''t support other than GUS.');
  275.     List.Put(StrCredits+30             , '        Future versions of VT will support other cards again.');
  276.     List.Put(StrCredits+31             , #0);
  277.  
  278.     List.Put(StrDedicat                , '         This version is dedicated to Gore/FC and John Smith.');
  279.     List.Put(StrDedicat+1              , '           They both have contributed in a very special way.');
  280.     List.Put(StrDedicat+2              , #0);
  281.  
  282.     List.Put(StrUsageTop               ,' ┌────────────────────────────────────────────────────────────────────────────┐');
  283.     List.Put(StrUsage01                ,' │ VT  <file.MOD|.OKT|.S3M|.STM|.669| etc] [<options>] [@<file.VTO>]          │');
  284.     List.Put(StrUsageBottom            ,' └────────────────────────────────────────────────────────────────────────────┘');
  285.     List.Put(StrUsageEmpty             ,' │                                                                            │');
  286.     List.Put(StrUsagePressAKey         ,'                       ---===≡≡≡ Press any key ≡≡≡===---');
  287.  
  288.     List.Put(StrUsage1Beg              ,' │ <file> accepts wildards. You can also specify more than one. Also, you can │');
  289.     List.Put(StrUsage1Beg+ 1           ,' │        specify the songs inside a demo (this time without wildcards)       │');
  290.     List.Put(StrUsage1Beg+ 2           ,' │        using the bar "/". (See the examples).                              │');
  291.     List.Put(StrUsage1Beg+ 3           ,'');
  292.     List.Put(StrUsage1Beg+ 4           ,' │ <file.VTO> is an ASCII file with mor parameter lines. You can specify as   │');
  293.     List.Put(StrUsage1Beg+ 5           ,' │            many as you want, each one with it''s at-sign "@". These files   │');
  294.     List.Put(StrUsage1Beg+ 2           ,' │        using the bar "/". (See the examples).                              │');
  295.     List.Put(StrUsage1Beg+ 3           ,'');
  296.     List.Put(StrUsage1Beg+ 4           ,' │ <file.VTO> is an ASCII file with mor parameter lines. You can specify as   │');
  297.     List.Put(StrUsage1Beg+ 5           ,' │            many as you want, each one with it''s at-sign "@". These files   │');
  298.     List.Put(StrUsage1Beg+ 6           ,' │            can have comments, beginning with a semicolon ";". They can     │');
  299.     List.Put(StrUsage1Beg+ 7           ,' │            also be nested to any level (memory permitting).                │');
  300.     List.Put(StrUsage1Beg+ 8           ,#0);
  301.  
  302.     List.Put(StrUsage2Beg              ,' │ <options> is a list of switches, preceded each one with a slash "/" or a   │');
  303.     List.Put(StrUsage2Beg+ 1           ,' │           hyphen "-". All options must be separated by, at least, a space. │');
  304.     List.Put(StrUsage2Beg+ 2           ,' │           Some options must have a parameter, which must be separated by a │');
  305.     List.Put(StrUsage2Beg+ 3           ,' │           space or a colon ":". Possible options are:                      │');
  306.     List.Put(StrUsage2Beg+ 4           ,'');
  307.     List.Put(StrUsage2Beg+ 5           ,' │   / or -       do all the options and songs specified, and then continue.  │');
  308.     List.Put(StrUsage2Beg+ 6           ,' │   /v:<vol.>    sound volume.                                               │');
  309.     List.Put(StrUsage2Beg+ 7           ,' │   /sh:<cmd.>   program and parameters to be executed when shelling.        │');
  310.     List.Put(StrUsage2Beg+ 8           ,' │   /ss:<pos.>   song start position.                                        │');
  311.     List.Put(StrUsage2Beg+ 9           ,' │   /sr:<pos.>   song loop start position.                                   │');
  312.     List.Put(StrUsage2Beg+10           ,' │   /sl:<pos.>   song last position.                                         │');
  313.     List.Put(StrUsage2Beg+11           ,' │   /lq          "Low Quality", spends less memory, but sounds worse         │');
  314.     List.Put(StrUsage2Beg+12           ,' │   /hq          "Hi  Quality", deactivates the /lq.                         │');
  315.     List.Put(StrUsage2Beg+13           ,' │   /flp         equals to "ForceLoopMod = Yes" in the VT.CFG.               │');
  316.     List.Put(StrUsage2Beg+14           ,' │   /nofl        equals to "ForceLoopMod = No"  in the VT.CFG.               │');
  317.     List.Put(StrUsage2Beg+15           ,' │   /loop        equals to "LoopMod = Yes" in the VT.CFG.                    │');
  318.     List.Put(StrUsage2Beg+16           ,' │   /nolp        equals to "LoopMod = No"  in the VT.CFG.                    │');
  319.     List.Put(StrUsage2Beg+17           ,' │   /off:<pos.>  offset where the song begins inside the file.               │');
  320.     List.Put(StrUsage2Beg+18           ,' │   /port:<n>    I/O port of the sound card.                                 │');
  321.     List.Put(StrUsage2Beg+19           ,' │   /irq:<n>     IRQ of the sound card.                                      │');
  322.     List.Put(StrUsage2Beg+20           ,' │   /frst:<file> this is the first song that will be played.                 │');
  323.     List.Put(StrUsage2Beg+21           ,#0);
  324.     
  325.     List.Put(StrUsage3Beg              ,' │ <device> can be:                                                           │');
  326.     List.Put(StrUsage3Beg+ 1           ,' │                                                                            │');
  327.     List.Put(StrUsage3Beg+ 2           ,' │     Only GUS is supported in this version of VT. Sorry.                    │');
  328.     List.Put(StrUsage3Beg+ 3           ,' │                                                                            │');
  329.     List.Put(StrUsage3Beg+ 4           ,#0);
  330.  
  331.     List.Put(StrUsage4Beg              ,' │ Examples: The command line interpreter is too flexible to explain every    │');
  332.     List.Put(StrUsage4Beg+ 1           ,' │           little aspect of it, so to have an idea, just look below, and    │');
  333.     List.Put(StrUsage4Beg+ 2           ,' │           examine the example .VTO files.                                  │');
  334.     List.Put(StrUsage4Beg+ 3           ,'');
  335.     List.Put(StrUsage4Beg+ 4           ,' │   This plays the song "Axel F." through the GUS at 240/11 with a volume of │');
  336.     List.Put(StrUsage4Beg+ 5           ,' │   64:                                                                      │');
  337.     List.Put(StrUsage4Beg+ 6           ,'');
  338.     List.Put(StrUsage4Beg+ 7           ,' │       VT /v:64 D:\MODS\AXEL_F.MOD /port $240 /IRQ:11                       │');
  339.     List.Put(StrUsage4Beg+ 8           ,'');
  340.     List.Put(StrUsage4Beg+ 9           ,' │   This plays the music of the Unreal demo, by Future Crew, as given in the │');
  341.     List.Put(StrUsage4Beg+10           ,' │   example .VTO file. Shells to the ASCII editor, editing the VT.PAS file:  │');
  342.     List.Put(StrUsage4Beg+11           ,'');
  343.     List.Put(StrUsage4Beg+12           ,' │       VT @UNREAL.VTO /sh:C:\BIN\Q.EXE VT.PAS                               │');
  344.     List.Put(StrUsage4Beg+13           ,'');
  345.     List.Put(StrUsage4Beg+14           ,' │   This plays the songs 1 and 2 (whichever format they are):                │');
  346.     List.Put(StrUsage4Beg+15           ,'');
  347.     List.Put(StrUsage4Beg+16           ,' │       VT 1 2                                                               │');
  348.     List.Put(StrUsage4Beg+17           ,'');
  349.     List.Put(StrUsage4Beg+18           ,' │   This plays the song 1 at 64 of volume and the song 2 at 128:             │');
  350.     List.Put(StrUsage4Beg+19           ,'');
  351.     List.Put(StrUsage4Beg+20           ,' │       VT 1 /v:64 / /v 128 2                                                │');
  352.     List.Put(StrUsage4Beg+21           ,'');
  353.     List.Put(StrUsage4Beg+22           ,#0);
  354.  
  355.     List.Put(StrInitializing           ,'    Initializing... ');
  356.  
  357.   END;
  358.  
  359.  
  360.  
  361.  
  362. END.
  363.